/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Publish / A / Alpha.5.76.sit / Alpha.5.76 folder / Tcl / SystemCode / win.tcl

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 77 69 6e 2e 74 63 | 6c 00 00 00 00 00 00 00 |..win.tc|l.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 0d 13 00 | 00 01 7e a9 a2 a2 af a9 |........|..~.....|
|00000060| a2 a2 af 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a2 c7 00 00 |........|........|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|000000d0| 09 57 69 6e 64 6f 77 20 | 68 61 6e 64 6c 69 6e 67 |.Window |handling|
|000000e0| 20 72 6f 75 74 69 6e 65 | 73 2e 20 41 6c 6c 20 70 | routine|s. All p|
|000000f0| 72 6f 63 73 20 61 72 65 | 20 62 6f 75 6e 64 20 69 |rocs are| bound i|
|00000100| 6e 20 41 6c 70 68 61 42 | 69 74 73 2e 74 63 6c 2e |n AlphaB|its.tcl.|
|00000110| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000160| 0d 70 72 6f 63 20 73 68 | 72 69 6e 6b 48 69 67 68 |.proc sh|rinkHigh|
|00000170| 20 7b 7d 20 7b 0d 09 73 | 65 74 20 74 65 78 74 20 | {} {..s|et text |
|00000180| 5b 67 65 74 47 65 6f 6d | 65 74 72 79 5d 0d 09 73 |[getGeom|etry]..s|
|00000190| 65 74 20 6c 65 66 74 20 | 5b 6c 69 6e 64 65 78 20 |et left |[lindex |
|000001a0| 24 74 65 78 74 20 30 5d | 0d 09 73 65 74 20 74 6f |$text 0]|..set to|
|000001b0| 70 20 5b 6c 69 6e 64 65 | 78 20 24 74 65 78 74 20 |p [linde|x $text |
|000001c0| 31 5d 0d 09 73 65 74 20 | 77 69 64 74 68 20 5b 6c |1]..set |width [l|
|000001d0| 69 6e 64 65 78 20 24 74 | 65 78 74 20 32 5d 0d 09 |index $t|ext 2]..|
|000001e0| 73 69 7a 65 57 69 6e 20 | 24 77 69 64 74 68 20 31 |sizeWin |$width 1|
|000001f0| 35 30 0d 09 6d 6f 76 65 | 57 69 6e 20 24 6c 65 66 |50..move|Win $lef|
|00000200| 74 20 34 32 20 0d 7d 0d | 0d 70 72 6f 63 20 73 68 |t 42 .}.|.proc sh|
|00000210| 72 69 6e 6b 4c 6f 77 20 | 7b 7d 20 7b 0d 09 73 65 |rinkLow |{} {..se|
|00000220| 74 20 74 65 78 74 20 5b | 67 65 74 47 65 6f 6d 65 |t text [|getGeome|
|00000230| 74 72 79 5d 0d 09 73 65 | 74 20 6c 65 66 74 20 5b |try]..se|t left [|
|00000240| 6c 69 6e 64 65 78 20 24 | 74 65 78 74 20 30 5d 0d |lindex $|text 0].|
|00000250| 09 73 65 74 20 74 6f 70 | 20 5b 6c 69 6e 64 65 78 |.set top| [lindex|
|00000260| 20 24 74 65 78 74 20 31 | 5d 0d 09 73 65 74 20 77 | $text 1|]..set w|
|00000270| 69 64 74 68 20 5b 6c 69 | 6e 64 65 78 20 24 74 65 |idth [li|ndex $te|
|00000280| 78 74 20 32 5d 0d 09 6d | 6f 76 65 57 69 6e 20 24 |xt 2]..m|oveWin $|
|00000290| 6c 65 66 74 20 33 33 30 | 0d 09 73 69 7a 65 57 69 |left 330|..sizeWi|
|000002a0| 6e 20 24 77 69 64 74 68 | 20 31 34 36 0d 7d 0d 0d |n $width| 146.}..|
|000002b0| 0d 70 72 6f 63 20 73 77 | 61 70 57 69 74 68 4e 65 |.proc sw|apWithNe|
|000002c0| 78 74 20 7b 7d 20 7b 0d | 09 73 65 74 20 66 69 6c |xt {} {.|.set fil|
|000002d0| 65 73 20 5b 77 69 6e 4e | 61 6d 65 73 20 2d 66 5d |es [winN|ames -f]|
|000002e0| 0d 09 73 65 74 20 6c 65 | 6e 20 5b 6c 6c 65 6e 67 |..set le|n [lleng|
|000002f0| 74 68 20 24 66 69 6c 65 | 73 5d 0d 09 69 66 20 7b |th $file|s]..if {|
|00000300| 24 6c 65 6e 20 3c 3d 20 | 31 7d 20 72 65 74 75 72 |$len <= |1} retur|
|00000310| 6e 0d 09 62 72 69 6e 67 | 54 6f 46 72 6f 6e 74 20 |n..bring|ToFront |
|00000320| 5b 6c 69 6e 64 65 78 20 | 24 66 69 6c 65 73 20 31 |[lindex |$files 1|
|00000330| 5d 0d 7d 0d 09 0d 70 72 | 6f 63 20 6e 65 78 74 57 |].}...pr|oc nextW|
|00000340| 69 6e 64 6f 77 20 7b 7d | 20 7b 0d 09 73 65 74 20 |indow {}| {..set |
|00000350| 66 69 6c 65 73 20 5b 77 | 69 6e 4e 61 6d 65 73 20 |files [w|inNames |
|00000360| 2d 66 5d 0d 09 69 66 20 | 7b 5b 6c 6c 65 6e 67 74 |-f]..if |{[llengt|
|00000370| 68 20 24 66 69 6c 65 73 | 5d 20 3c 3d 20 31 7d 20 |h $files|] <= 1} |
|00000380| 72 65 74 75 72 6e 0d 09 | 73 65 6e 64 54 6f 42 61 |return..|sendToBa|
|00000390| 63 6b 20 5b 6c 69 6e 64 | 65 78 20 24 66 69 6c 65 |ck [lind|ex $file|
|000003a0| 73 20 30 5d 0d 7d 0d 0d | 70 72 6f 63 20 70 72 65 |s 0].}..|proc pre|
|000003b0| 76 57 69 6e 64 6f 77 20 | 7b 7d 20 7b 0d 09 73 65 |vWindow |{} {..se|
|000003c0| 74 20 66 69 6c 65 73 20 | 5b 77 69 6e 4e 61 6d 65 |t files |[winName|
|000003d0| 73 20 2d 66 5d 0d 09 73 | 65 74 20 6c 65 6e 20 5b |s -f]..s|et len [|
|000003e0| 6c 6c 65 6e 67 74 68 20 | 24 66 69 6c 65 73 5d 0d |llength |$files].|
|000003f0| 09 69 66 20 7b 24 6c 65 | 6e 20 3c 3d 20 31 7d 20 |.if {$le|n <= 1} |
|00000400| 72 65 74 75 72 6e 0d 09 | 62 72 69 6e 67 54 6f 46 |return..|bringToF|
|00000410| 72 6f 6e 74 20 5b 6c 69 | 6e 64 65 78 20 24 66 69 |ront [li|ndex $fi|
|00000420| 6c 65 73 20 5b 65 78 70 | 72 20 24 6c 65 6e 2d 31 |les [exp|r $len-1|
|00000430| 5d 5d 0d 7d 0d 0d 70 72 | 6f 63 20 64 69 73 70 46 |]].}..pr|oc dispF|
|00000440| 75 6c 6c 4e 61 6d 65 20 | 7b 7d 20 7b 0d 09 6d 65 |ullName |{} {..me|
|00000450| 73 73 61 67 65 20 5b 6c | 69 6e 64 65 78 20 5b 77 |ssage [l|index [w|
|00000460| 69 6e 4e 61 6d 65 73 20 | 2d 66 5d 20 30 5d 0d 7d |inNames |-f] 0].}|
|00000470| 0d 0d 70 72 6f 63 20 76 | 65 72 74 69 63 61 6c 6c |..proc v|erticall|
|00000480| 79 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 74 |y {} {..|global t|
|00000490| 69 6c 65 48 65 69 67 68 | 74 0d 09 67 6c 6f 62 61 |ileHeigh|t..globa|
|000004a0| 6c 20 74 69 6c 65 57 69 | 64 74 68 0d 09 67 6c 6f |l tileWi|dth..glo|
|000004b0| 62 61 6c 20 6e 75 6d 57 | 69 6e 73 54 6f 54 69 6c |bal numW|insToTil|
|000004c0| 65 0d 09 73 65 74 20 6d | 61 72 67 69 6e 20 32 32 |e..set m|argin 22|
|000004d0| 0d 09 73 65 74 20 6e 61 | 6d 65 73 20 5b 77 69 6e |..set na|mes [win|
|000004e0| 4e 61 6d 65 73 20 2d 66 | 5d 0d 09 73 65 74 20 6e |Names -f|]..set n|
|000004f0| 75 6d 57 69 6e 73 20 5b | 6c 6c 65 6e 67 74 68 20 |umWins [|llength |
|00000500| 24 6e 61 6d 65 73 5d 0d | 09 69 66 20 28 24 6e 75 |$names].|.if ($nu|
|00000510| 6d 57 69 6e 73 3c 3d 31 | 29 20 72 65 74 75 72 6e |mWins<=1|) return|
|00000520| 0d 09 69 66 20 28 24 6e | 75 6d 57 69 6e 73 3e 24 |..if ($n|umWins>$|
|00000530| 6e 75 6d 57 69 6e 73 54 | 6f 54 69 6c 65 29 20 7b |numWinsT|oTile) {|
|00000540| 73 65 74 20 6e 75 6d 57 | 69 6e 73 20 24 6e 75 6d |set numW|ins $num|
|00000550| 57 69 6e 73 54 6f 54 69 | 6c 65 7d 0d 09 73 65 74 |WinsToTi|le}..set|
|00000560| 20 68 65 69 67 68 74 20 | 5b 65 78 70 72 20 28 24 | height |[expr ($|
|00000570| 74 69 6c 65 48 65 69 67 | 68 74 2f 24 6e 75 6d 57 |tileHeig|ht/$numW|
|00000580| 69 6e 73 29 2d 24 6d 61 | 72 67 69 6e 5d 0d 09 73 |ins)-$ma|rgin]..s|
|00000590| 65 74 20 68 65 69 67 68 | 74 20 5b 65 78 70 72 20 |et heigh|t [expr |
|000005a0| 7b 24 68 65 69 67 68 74 | 20 2b 20 24 6d 61 72 67 |{$height| + $marg|
|000005b0| 69 6e 20 2f 20 24 6e 75 | 6d 57 69 6e 73 7d 5d 0d |in / $nu|mWins}].|
|000005c0| 09 73 65 74 20 77 69 64 | 74 68 20 24 74 69 6c 65 |.set wid|th $tile|
|000005d0| 57 69 64 74 68 0d 09 73 | 65 74 20 76 65 72 20 34 |Width..s|et ver 4|
|000005e0| 30 0d 09 69 66 20 7b 24 | 6e 75 6d 57 69 6e 73 20 |0..if {$|numWins |
|000005f0| 3d 3d 20 30 7d 20 7b 72 | 65 74 75 72 6e 7d 0d 0d |== 0} {r|eturn}..|
|00000600| 09 66 6f 72 20 7b 73 65 | 74 20 69 20 30 7d 20 7b |.for {se|t i 0} {|
|00000610| 24 69 20 3c 20 24 6e 75 | 6d 57 69 6e 73 7d 20 7b |$i < $nu|mWins} {|
|00000620| 69 6e 63 72 20 69 7d 20 | 7b 0d 09 09 6d 6f 76 65 |incr i} |{...move|
|00000630| 57 69 6e 20 5b 6c 69 6e | 64 65 78 20 24 6e 61 6d |Win [lin|dex $nam|
|00000640| 65 73 20 24 69 5d 20 31 | 30 30 30 20 30 0d 09 09 |es $i] 1|000 0...|
|00000650| 73 69 7a 65 57 69 6e 20 | 5b 6c 69 6e 64 65 78 20 |sizeWin |[lindex |
|00000660| 24 6e 61 6d 65 73 20 24 | 69 5d 20 24 77 69 64 74 |$names $|i] $widt|
|00000670| 68 20 24 68 65 69 67 68 | 74 0d 09 7d 0d 0d 09 66 |h $heigh|t..}...f|
|00000680| 6f 72 20 7b 73 65 74 20 | 69 20 30 7d 20 7b 24 69 |or {set |i 0} {$i|
|00000690| 20 3c 20 24 6e 75 6d 57 | 69 6e 73 7d 20 7b 69 6e | < $numW|ins} {in|
|000006a0| 63 72 20 69 7d 20 7b 0d | 09 09 6d 6f 76 65 57 69 |cr i} {.|..moveWi|
|000006b0| 6e 20 5b 6c 69 6e 64 65 | 78 20 24 6e 61 6d 65 73 |n [linde|x $names|
|000006c0| 20 24 69 5d 20 33 20 24 | 76 65 72 0d 09 09 73 65 | $i] 3 $|ver...se|
|000006d0| 74 20 76 65 72 20 5b 65 | 78 70 72 20 24 76 65 72 |t ver [e|xpr $ver|
|000006e0| 2b 24 6d 61 72 67 69 6e | 2b 24 68 65 69 67 68 74 |+$margin|+$height|
|000006f0| 5d 0d 09 7d 0d 7d 0d 0d | 70 72 6f 63 20 68 6f 72 |]..}.}..|proc hor|
|00000700| 69 7a 6f 6e 74 61 6c 6c | 79 20 7b 7d 20 7b 0d 09 |izontall|y {} {..|
|00000710| 67 6c 6f 62 61 6c 20 74 | 69 6c 65 48 65 69 67 68 |global t|ileHeigh|
|00000720| 74 0d 09 67 6c 6f 62 61 | 6c 20 74 69 6c 65 57 69 |t..globa|l tileWi|
|00000730| 64 74 68 0d 09 67 6c 6f | 62 61 6c 20 6e 75 6d 57 |dth..glo|bal numW|
|00000740| 69 6e 73 54 6f 54 69 6c | 65 0d 09 73 65 74 20 6e |insToTil|e..set n|
|00000750| 61 6d 65 73 20 5b 77 69 | 6e 4e 61 6d 65 73 20 2d |ames [wi|nNames -|
|00000760| 66 5d 0d 09 73 65 74 20 | 6e 75 6d 57 69 6e 73 20 |f]..set |numWins |
|00000770| 5b 6c 6c 65 6e 67 74 68 | 20 24 6e 61 6d 65 73 5d |[llength| $names]|
|00000780| 0d 09 69 66 20 28 24 6e | 75 6d 57 69 6e 73 3c 3d |..if ($n|umWins<=|
|00000790| 31 29 20 72 65 74 75 72 | 6e 0d 09 69 66 20 28 24 |1) retur|n..if ($|
|000007a0| 6e 75 6d 57 69 6e 73 3e | 24 6e 75 6d 57 69 6e 73 |numWins>|$numWins|
|000007b0| 54 6f 54 69 6c 65 29 20 | 7b 73 65 74 20 6e 75 6d |ToTile) |{set num|
|000007c0| 57 69 6e 73 20 24 6e 75 | 6d 57 69 6e 73 54 6f 54 |Wins $nu|mWinsToT|
|000007d0| 69 6c 65 7d 0d 09 73 65 | 74 20 6d 61 72 67 69 6e |ile}..se|t margin|
|000007e0| 20 34 0d 09 73 65 74 20 | 77 69 64 74 68 20 5b 65 | 4..set |width [e|
|000007f0| 78 70 72 20 28 24 74 69 | 6c 65 57 69 64 74 68 2f |xpr ($ti|leWidth/|
|00000800| 24 6e 75 6d 57 69 6e 73 | 29 2d 24 6d 61 72 67 69 |$numWins|)-$margi|
|00000810| 6e 5d 0d 09 73 65 74 20 | 77 69 64 74 68 20 5b 65 |n]..set |width [e|
|00000820| 78 70 72 20 7b 24 77 69 | 64 74 68 20 2b 20 24 6d |xpr {$wi|dth + $m|
|00000830| 61 72 67 69 6e 20 2f 20 | 24 6e 75 6d 57 69 6e 73 |argin / |$numWins|
|00000840| 7d 5d 0d 09 73 65 74 20 | 68 65 69 67 68 74 20 24 |}]..set |height $|
|00000850| 74 69 6c 65 48 65 69 67 | 68 74 0d 09 73 65 74 20 |tileHeig|ht..set |
|00000860| 68 6f 72 20 30 0d 09 69 | 66 20 7b 24 6e 75 6d 57 |hor 0..i|f {$numW|
|00000870| 69 6e 73 20 3d 3d 20 30 | 7d 20 7b 72 65 74 75 72 |ins == 0|} {retur|
|00000880| 6e 7d 0d 0d 09 66 6f 72 | 20 7b 73 65 74 20 69 20 |n}...for| {set i |
|00000890| 30 7d 20 7b 24 69 20 3c | 20 24 6e 75 6d 57 69 6e |0} {$i <| $numWin|
|000008a0| 73 7d 20 7b 69 6e 63 72 | 20 69 7d 20 7b 0d 09 09 |s} {incr| i} {...|
|000008b0| 6d 6f 76 65 57 69 6e 20 | 5b 6c 69 6e 64 65 78 20 |moveWin |[lindex |
|000008c0| 24 6e 61 6d 65 73 20 24 | 69 5d 20 31 30 30 30 20 |$names $|i] 1000 |
|000008d0| 30 0d 09 09 73 69 7a 65 | 57 69 6e 20 5b 6c 69 6e |0...size|Win [lin|
|000008e0| 64 65 78 20 24 6e 61 6d | 65 73 20 24 69 5d 20 24 |dex $nam|es $i] $|
|000008f0| 77 69 64 74 68 20 24 68 | 65 69 67 68 74 0d 09 7d |width $h|eight..}|
|00000900| 0d 0d 09 66 6f 72 20 7b | 73 65 74 20 69 20 30 7d |...for {|set i 0}|
|00000910| 20 7b 24 69 20 3c 20 24 | 6e 75 6d 57 69 6e 73 7d | {$i < $|numWins}|
|00000920| 20 7b 69 6e 63 72 20 69 | 7d 20 7b 0d 09 09 6d 6f | {incr i|} {...mo|
|00000930| 76 65 57 69 6e 20 5b 6c | 69 6e 64 65 78 20 24 6e |veWin [l|index $n|
|00000940| 61 6d 65 73 20 24 69 5d | 20 24 68 6f 72 20 34 30 |ames $i]| $hor 40|
|00000950| 0d 09 09 73 65 74 20 68 | 6f 72 20 5b 65 78 70 72 |...set h|or [expr|
|00000960| 20 24 68 6f 72 2b 24 77 | 69 64 74 68 2b 24 6d 61 | $hor+$w|idth+$ma|
|00000970| 72 67 69 6e 5d 0d 09 7d | 0d 7d 0d 0d 70 72 6f 63 |rgin]..}|.}..proc|
|00000980| 20 74 69 6c 65 64 20 7b | 7d 20 7b 0d 09 67 6c 6f | tiled {|} {..glo|
|00000990| 62 61 6c 20 74 69 6c 65 | 48 65 69 67 68 74 0d 09 |bal tile|Height..|
|000009a0| 67 6c 6f 62 61 6c 20 74 | 69 6c 65 57 69 64 74 68 |global t|ileWidth|
|000009b0| 0d 09 67 6c 6f 62 61 6c | 20 6e 75 6d 57 69 6e 73 |..global| numWins|
|000009c0| 54 6f 54 69 6c 65 0d 09 | 73 65 74 20 78 50 61 6e |ToTile..|set xPan|
|000009d0| 20 38 0d 09 73 65 74 20 | 79 50 61 6e 20 31 30 0d | 8..set |yPan 10.|
|000009e0| 09 73 65 74 20 78 4d 61 | 72 67 20 33 0d 09 73 65 |.set xMa|rg 3..se|
|000009f0| 74 20 79 4d 61 72 67 20 | 34 30 0d 09 73 65 74 20 |t yMarg |40..set |
|00000a00| 79 4d 61 78 20 35 30 0d | 09 73 65 74 20 6e 61 6d |yMax 50.|.set nam|
|00000a10| 65 73 20 5b 77 69 6e 4e | 61 6d 65 73 20 2d 66 5d |es [winN|ames -f]|
|00000a20| 0d 09 73 65 74 20 6e 75 | 6d 57 69 6e 73 20 5b 6c |..set nu|mWins [l|
|00000a30| 6c 65 6e 67 74 68 20 24 | 6e 61 6d 65 73 5d 0d 09 |length $|names]..|
|00000a40| 69 66 20 28 24 6e 75 6d | 57 69 6e 73 3c 31 29 20 |if ($num|Wins<1) |
|00000a50| 72 65 74 75 72 6e 0d 09 | 73 65 74 20 6c 69 6e 65 |return..|set line|
|00000a60| 20 30 09 0d 09 73 65 74 | 20 68 65 69 67 68 74 20 | 0...set| height |
|00000a70| 5b 65 78 70 72 20 24 74 | 69 6c 65 48 65 69 67 68 |[expr $t|ileHeigh|
|00000a80| 74 2d 24 79 50 61 6e 2a | 28 24 6e 75 6d 57 69 6e |t-$yPan*|($numWin|
|00000a90| 73 2d 31 29 5d 0d 09 73 | 65 74 20 77 69 64 74 68 |s-1)]..s|et width|
|00000aa0| 20 5b 65 78 70 72 20 24 | 74 69 6c 65 57 69 64 74 | [expr $|tileWidt|
|00000ab0| 68 2d 24 78 50 61 6e 2a | 28 24 6e 75 6d 57 69 6e |h-$xPan*|($numWin|
|00000ac0| 73 2d 31 29 5d 0d 09 0d | 09 66 6f 72 20 7b 73 65 |s-1)]...|.for {se|
|00000ad0| 74 20 69 20 30 7d 20 7b | 24 69 20 3c 20 24 6e 75 |t i 0} {|$i < $nu|
|00000ae0| 6d 57 69 6e 73 7d 20 7b | 69 6e 63 72 20 69 7d 20 |mWins} {|incr i} |
|00000af0| 7b 0d 09 09 6d 6f 76 65 | 57 69 6e 20 5b 6c 69 6e |{...move|Win [lin|
|00000b00| 64 65 78 20 24 6e 61 6d | 65 73 20 24 69 5d 20 5b |dex $nam|es $i] [|
|00000b10| 65 78 70 72 20 24 78 4d | 61 72 67 2b 24 69 2a 24 |expr $xM|arg+$i*$|
|00000b20| 78 50 61 6e 5d 20 5b 65 | 78 70 72 20 24 79 4d 61 |xPan] [e|xpr $yMa|
|00000b30| 72 67 2b 24 6c 69 6e 65 | 5d 0d 09 09 73 65 74 20 |rg+$line|]...set |
|00000b40| 6c 69 6e 65 20 5b 65 78 | 70 72 20 24 6c 69 6e 65 |line [ex|pr $line|
|00000b50| 2b 24 79 50 61 6e 5d 0d | 09 09 69 66 20 28 24 6c |+$yPan].|..if ($l|
|00000b60| 69 6e 65 3e 24 79 4d 61 | 78 29 20 7b 73 65 74 20 |ine>$yMa|x) {set |
|00000b70| 6c 69 6e 65 20 30 7d 0d | 09 09 73 69 7a 65 57 69 |line 0}.|..sizeWi|
|00000b80| 6e 20 5b 6c 69 6e 64 65 | 78 20 24 6e 61 6d 65 73 |n [linde|x $names|
|00000b90| 20 24 69 5d 20 24 77 69 | 64 74 68 20 24 68 65 69 | $i] $wi|dth $hei|
|00000ba0| 67 68 74 0d 09 7d 0d 7d | 0d 0d 0d 70 72 6f 63 20 |ght..}.}|...proc |
|00000bb0| 6f 76 65 72 6c 61 79 20 | 7b 7d 20 7b 0d 09 67 6c |overlay |{} {..gl|
|00000bc0| 6f 62 61 6c 20 64 65 66 | 48 65 69 67 68 74 0d 09 |obal def|Height..|
|00000bd0| 67 6c 6f 62 61 6c 20 64 | 65 66 57 69 64 74 68 0d |global d|efWidth.|
|00000be0| 09 67 6c 6f 62 61 6c 20 | 6e 75 6d 57 69 6e 73 54 |.global |numWinsT|
|00000bf0| 6f 54 69 6c 65 0d 09 73 | 65 74 20 6e 61 6d 65 73 |oTile..s|et names|
|00000c00| 20 5b 77 69 6e 4e 61 6d | 65 73 20 2d 66 5d 0d 09 | [winNam|es -f]..|
|00000c10| 73 65 74 20 6e 75 6d 57 | 69 6e 73 20 5b 6c 6c 65 |set numW|ins [lle|
|00000c20| 6e 67 74 68 20 24 6e 61 | 6d 65 73 5d 0d 09 69 66 |ngth $na|mes]..if|
|00000c30| 20 28 24 6e 75 6d 57 69 | 6e 73 3c 31 29 20 72 65 | ($numWi|ns<1) re|
|00000c40| 74 75 72 6e 0d 09 66 6f | 72 20 7b 73 65 74 20 69 |turn..fo|r {set i|
|00000c50| 20 30 7d 20 7b 24 69 20 | 3c 20 24 6e 75 6d 57 69 | 0} {$i |< $numWi|
|00000c60| 6e 73 7d 20 7b 69 6e 63 | 72 20 69 7d 20 7b 0d 09 |ns} {inc|r i} {..|
|00000c70| 09 6d 6f 76 65 57 69 6e | 20 5b 6c 69 6e 64 65 78 |.moveWin| [lindex|
|00000c80| 20 24 6e 61 6d 65 73 20 | 24 69 5d 20 33 20 34 30 | $names |$i] 3 40|
|00000c90| 0d 09 09 73 69 7a 65 57 | 69 6e 20 5b 6c 69 6e 64 |...sizeW|in [lind|
|00000ca0| 65 78 20 24 6e 61 6d 65 | 73 20 24 69 5d 20 24 64 |ex $name|s $i] $d|
|00000cb0| 65 66 57 69 64 74 68 20 | 24 64 65 66 48 65 69 67 |efWidth |$defHeig|
|00000cc0| 68 74 0d 09 7d 0d 7d 0d | 0d 0d 70 72 6f 63 20 63 |ht..}.}.|..proc c|
|00000cd0| 68 6f 6f 73 65 41 57 69 | 6e 64 6f 77 20 7b 7d 20 |hooseAWi|ndow {} |
|00000ce0| 7b 0d 20 20 20 20 73 65 | 74 20 6e 61 6d 65 20 5b |{.    se|t name [|
|00000cf0| 6c 69 73 74 70 69 63 6b | 20 5b 6c 73 6f 72 74 20 |listpick| [lsort |
|00000d00| 5b 77 69 6e 4e 61 6d 65 | 73 5d 5d 5d 0d 20 20 20 |[winName|s]]].   |
|00000d10| 20 69 66 20 7b 5b 73 74 | 72 69 6e 67 20 6c 65 6e | if {[st|ring len|
|00000d20| 67 74 68 20 24 6e 61 6d | 65 5d 7d 20 7b 0d 20 20 |gth $nam|e]} {.  |
|00000d30| 20 20 09 62 72 69 6e 67 | 54 6f 46 72 6f 6e 74 20 |  .bring|ToFront |
|00000d40| 24 6e 61 6d 65 0d 09 09 | 69 66 20 5b 69 63 6f 6e |$name...|if [icon|
|00000d50| 20 2d 71 5d 20 7b 20 69 | 63 6f 6e 20 2d 66 20 24 | -q] { i|con -f $|
|00000d60| 6e 61 6d 65 20 2d 6f 20 | 7d 0d 20 20 20 09 7d 0d |name -o |}.   .}.|
|00000d70| 7d 0d 0d 0d 70 72 6f 63 | 20 69 63 6f 6e 69 66 79 |}...proc| iconify|
|00000d80| 20 7b 7d 20 7b 20 0d 09 | 69 63 6f 6e 20 2d 74 20 | {} { ..|icon -t |
|00000d90| 0d 7d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.}......|........|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000e10| 73 5d 5d 5d 0d 09 69 66 | 20 7b 21 5b 73 74 72 69 |s]]]..if| {![stri|
|00000e20| 6e 67 20 6c 65 6e 67 74 | 68 20 24 66 75 6e 63 5d |ng lengt|h $func]|
|00000e30| 07 77 69 6e 2e 74 63 6c | 02 00 00 00 50 61 72 74 |.win.tcl|....Part|
|00000e40| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 08 4e |SIT!....|.......N|
|00000e50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 a9 b0 91 aa 00 00 | 00 00 00 00 01 7e 69 6e |........|.....~in|
|00000e80| 67 20 6c 65 6e 67 74 68 | 20 24 77 69 6e 5d 7d 20 |g length| $win]} |
|00000e90| 72 65 74 75 72 6e 0d 09 | 74 72 61 63 65 46 75 6e |return..|traceFun|
|00000ea0| 63 20 6f 6e 20 24 66 75 | 6e 63 20 24 77 69 6e 0d |c on $fu|nc $win.|
|00000eb0| 09 6d 61 72 6b 4d 65 6e | 75 49 74 65 6d 20 54 63 |.markMen|uItem Tc|
|00000ec0| 6c 20 74 72 61 63 65 54 | 63 6c 50 72 6f 63 20 6f |l traceT|clProc o|
|00000ed0| 6e 0d 7d 0d 0d 70 72 6f | 63 20 74 72 61 63 65 4f |n.}..pro|c traceO|
|00000ee0| 66 66 20 7b 7d 20 7b 0d | 09 74 72 61 63 65 46 75 |ff {} {.|.traceFu|
|00000ef0| 6e 63 20 6f 66 66 0d 09 | 6d 61 72 6b 4d 65 6e 75 |nc off..|markMenu|
|00000f00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 ae |...H..Mo|naco....|
|00000f10| e1 1c 00 a3 3a 82 00 00 | 00 6b 00 a0 9a 94 00 a4 |....:...|.k......|
|00000f20| 51 f8 00 a8 ba 2c 00 04 | 00 04 00 2a 00 03 01 dd |Q....,..|...*....|
|00000f30| 02 7d 00 2a 00 03 01 dd | 02 7d 00 05 b9 9c 00 00 |.}.*....|.}......|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000f50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 9f cd 64 |...L...L|...2...d|
|00000f60| 0c 7e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.~.....2|..MPSR..|
|00000f70| 00 0a 03 ed ff ff 00 00 | 00 00 00 a0 95 8c 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+